1 2 3 | Совершенное число — натуральное число, равное сумме всех своих собственных делителей (т. е. всех положительных делителей, отличных от самого́ числа). Первое совершенное число — 6 (1 + 2 + 3 = 6), следующее — 28 (1 + 2 + 4 + 7 + 14 = 28). По мере того как натуральные числа возрастают, совершенные числа встречаются всё реже. Третье совершенное число — 496, четвёртое — 8128, пятое — 33 550 336, шестое — 8 589 869 056, седьмое — 137 438 691 328 |
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 | DECLARE FUNCTION Md (A, B) CLS INPUT "N=", N s = 0 FOR i = 1 TO (N - 1 ) IF Md(N, i) = 0 THEN s = s + i NEXT i IF N = s THEN WRITE "Sovershennoe chislo" ELSE WRITE "NEsovershennoe chislo" END IF END FUNCTION Md (A, B) Md = A MOD B END FUNCTION |
Тестирование выполнено в программе QB64 ( Скачать )